home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / termsorc.lha / Extras / Source / term-source.lha / DayPanel.c < prev    next >
C/C++ Source or Header  |  1995-09-26  |  4KB  |  206 lines
  1. /*
  2. **    DayPanel.c
  3. **
  4. **    Editing panel for day of week selection
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_USE=1,GAD_CANCEL,GAD_TEXT };
  13.  
  14. BYTE __regargs
  15. DayPanel(struct TimeDateNode *Node)
  16. {
  17.     struct LayoutHandle    *Handle;
  18.     struct TimeDateNode     LocalNode;
  19.     BYTE             Result = FALSE;
  20.  
  21.     LocalNode = *Node;
  22.  
  23.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  24.         LH_LocaleHook,    &LocaleHook,
  25.         LH_ExitFlush,    FALSE,
  26.     TAG_DONE))
  27.     {
  28.         struct Window *PanelWindow;
  29.  
  30.         LT_New(Handle,
  31.             LA_Type,    VERTICAL_KIND,
  32.         TAG_DONE);
  33.         {
  34.             LT_New(Handle,
  35.                 LA_Type,    VERTICAL_KIND,
  36.                 LA_LabelID,    MSG_DAYPANEL_ACTIVE_DAYS_GAD,
  37.             TAG_DONE);
  38.             {
  39.                 LT_New(Handle,
  40.                     LA_Type,    VERTICAL_KIND,
  41.                 TAG_DONE);
  42.                 {
  43.                     WORD i;
  44.  
  45.                     for(i = 0 ; i < 7 ; i++)
  46.                     {
  47.                         LT_New(Handle,
  48.                             LA_Type,    CHECKBOX_KIND,
  49.                             LA_LabelID,    MSG_DAYPANEL_MONDAY_GAD + i,
  50.                             LA_ID,        GAD_TEXT + i,
  51.                             GTCB_Checked,    LocalNode . Header . Day & (1L << i),
  52.                         TAG_DONE);
  53.                     }
  54.  
  55.                     LT_EndGroup(Handle);
  56.                 }
  57.  
  58.                 LT_New(Handle,
  59.                     LA_Type,    XBAR_KIND,
  60.                 TAG_DONE);
  61.  
  62.                 LT_New(Handle,
  63.                     LA_Type,    VERTICAL_KIND,
  64.                 TAG_DONE);
  65.                 {
  66.                     LT_New(Handle,
  67.                         LA_Type,    STRING_KIND,
  68.                         LA_LabelID,    MSG_GLOBAL_COMMENT_GAD,
  69.                         LA_STRPTR,    LocalNode . Header . Comment,
  70.                         LA_Chars,    15,
  71.                         GTST_MaxChars,    19,
  72.                     TAG_DONE);
  73.  
  74.                     LT_EndGroup(Handle);
  75.                 }
  76.  
  77.                 LT_EndGroup(Handle);
  78.             }
  79.  
  80.             LT_New(Handle,
  81.                 LA_Type,VERTICAL_KIND,
  82.             TAG_DONE);
  83.             {
  84.                 LT_New(Handle,
  85.                     LA_Type,    XBAR_KIND,
  86.                     LAXB_FullSize,    TRUE,
  87.                 TAG_DONE);
  88.  
  89.                 LT_EndGroup(Handle);
  90.             }
  91.  
  92.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  93.                 LAGR_SameSize,    TRUE,
  94.                 LAGR_Spread,    TRUE,
  95.             TAG_DONE);
  96.             {
  97.                 LT_New(Handle,
  98.                     LA_Type,    BUTTON_KIND,
  99.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  100.                     LA_ID,        GAD_USE,
  101.                     LABT_ReturnKey,    TRUE,
  102.                     LABT_ExtraFat,    TRUE,
  103.                 TAG_DONE);
  104.  
  105.                 LT_New(Handle,
  106.                     LA_Type,    BUTTON_KIND,
  107.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  108.                     LA_ID,        GAD_CANCEL,
  109.                     LABT_EscKey,    TRUE,
  110.                     LABT_ExtraFat,    TRUE,
  111.                 TAG_DONE);
  112.  
  113.                 LT_EndGroup(Handle);
  114.             }
  115.  
  116.             LT_EndGroup(Handle);
  117.         }
  118.  
  119.         if(PanelWindow = LT_Build(Handle,
  120.             LAWN_TitleID,        MSG_DAYPANEL_DAY_SETTINGS_TXT,
  121.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  122.             LAWN_HelpHook,        &GuideHook,
  123.             LAWN_Parent,        Window,
  124.             WA_DepthGadget,        TRUE,
  125.             WA_CloseGadget,        TRUE,
  126.             WA_DragBar,        TRUE,
  127.             WA_RMBTrap,        TRUE,
  128.             WA_Activate,        TRUE,
  129.             WA_SimpleRefresh,    TRUE,
  130.         TAG_DONE))
  131.         {
  132.             struct IntuiMessage    *Message;
  133.             BOOLEAN             Done = FALSE;
  134.             ULONG             MsgClass;
  135.             UWORD             MsgCode;
  136.             struct Gadget        *MsgGadget;
  137.  
  138.             GuideContext(CONTEXT_DAY);
  139.  
  140.             LT_ShowWindow(Handle,TRUE);
  141.  
  142.             PushWindow(PanelWindow);
  143.  
  144.             do
  145.             {
  146.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  147.                     break;
  148.  
  149.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  150.                 {
  151.                     MsgClass    = Message -> Class;
  152.                     MsgCode        = Message -> Code;
  153.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  154.  
  155.                     LT_ReplyIMsg(Message);
  156.  
  157.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  158.                         Done = TRUE;
  159.  
  160.                     if(MsgClass == IDCMP_GADGETUP)
  161.                     {
  162.                         switch(MsgGadget -> GadgetID)
  163.                         {
  164.                             case GAD_USE:
  165.  
  166.                                 LT_UpdateStrings(Handle);
  167.  
  168.                                 *Node = LocalNode;
  169.  
  170.                                 Result = Done = TRUE;
  171.  
  172.                                 break;
  173.  
  174.                             case GAD_CANCEL:
  175.  
  176.                                 Done = TRUE;
  177.                                 break;
  178.  
  179.                             default:
  180.  
  181.                                 if(MsgGadget -> GadgetID >= GAD_TEXT && MsgGadget -> GadgetID < GAD_TEXT + 7)
  182.                                 {
  183.                                     LONG Index = MsgGadget -> GadgetID - GAD_TEXT;
  184.  
  185.                                     if(MsgCode)
  186.                                         LocalNode . Header . Day |= (1L << Index);
  187.                                     else
  188.                                         LocalNode . Header . Day &= ~(1L << Index);
  189.                                 }
  190.  
  191.                                 break;
  192.                         }
  193.                     }
  194.                 }
  195.             }
  196.             while(!Done);
  197.  
  198.             PopWindow();
  199.         }
  200.  
  201.         LT_DeleteHandle(Handle);
  202.     }
  203.  
  204.     return(Result);
  205. }
  206.